home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf
/
Redcode
/
Singlebömbi
< prev
next >
Wrap
Text File
|
1990-09-11
|
1KB
|
40 lines
.list on
.symtab on
; Folgende Symbole sind absolut definiert, d.h. bei Referenz ergeben sie
; den Wert, den sie bei ihrer Definition erhielten. Absolut definierte
; Symbole sind mächtiger als die Direktive ".relative".
.abseq AnzahlUnten: 100 ; Anzahl DAT 0 unter dem Programm
.abseq AnzahlOben : 100 ; Anzahl DAT 0 oberhalb des Programmes
.abseq Inkrement : 13
.abseq Distanz : 3111
UnteresEnde: dat 0
start: mov #OberesEnde-UnteresEnde-1, UnteresEnde
mov #Distanz, OberesEnde
mov #UnteresEnde-zielu-1, zielu
mov #OberesEnde-zielo+1, zielo
mov #AnzahlUnten, unten
mov #AnzahlOben, oben
loop1: mov #1, @zielu
sub #Inkrement, zielu
djn loop1, unten
loop2: mov #1, @zielo
add #Inkrement, zielo
djn loop2, oben
copyloop: mov @UnteresEnde, <OberesEnde
djn copyloop, UnteresEnde
jmp @OberesEnde
zielu: dat 0
zielo: dat 0
unten: dat 0
oben: dat 0
OberesEnde: dat 0
.end